;; supercollider/server-local.scm - (c) rohan drape, 2003-2005

;; Evaluates to '#t' iff `server' is on the local machine, ie. if the
;; host-name is "127.0.0.1".

(define (server-local?)
  (string=? (server-host-name) "127.0.0.1"))

;; The default port to use for the default local host server.

(define-global server-local-port 57110)

;; A memozied procedure that evaluates to the record for the server on
;; the local machine.

(define server-local
  (memoize-zero 
   (lambda ()
     (make-server_ (resolve-network-address "127.0.0.1" (server-local-port))
		   (server-options-default)))))
